home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / cw15 / tpw15.z / FRAME.TPW < prev    next >
Text File  |  1995-07-06  |  3KB  |  88 lines
  1. #PROCEDURE(Frame,'Multiple Document Main Menu'),WINDOW,HLP('~TPLProcFrame')
  2. #LOCALDATA
  3. LocalRequest         LONG,AUTO
  4. OriginalRequest      LONG,AUTO
  5. LocalResponse        LONG,AUTO
  6. WindowOpened         LONG
  7. WindowInitialized    LONG
  8. ForceRefresh         LONG,AUTO
  9. CurrentTab           STRING(80)
  10. #ENDLOCALDATA
  11. #CLASS('Procedure Setup','Upon Entry into the Procedure')
  12. #CLASS('Before Lookups','Refresh Window ROUTINE, before lookups')
  13. #CLASS('After Lookups','Refresh Window ROUTINE, after lookups')
  14. #CLASS('Procedure Exit','Before Leaving the Procedure')
  15. #PROMPT('&Parameters:', @s255),%Parameters
  16. #ENABLE(%ProcedureType='FUNCTION')
  17.   #PROMPT('Return Value:',FIELD),%ReturnValue
  18. #ENDENABLE
  19. #ENABLE(%INIActive)
  20.   #BOXED('INI File Settings')
  21.     #PROMPT('Save and Restore Window Location',CHECK),%INISaveWindow,DEFAULT(1),AT(10,,150)
  22.   #ENDBOXED
  23. #ENDENABLE
  24. #AT(%CustomGlobalDeclarations)
  25.   #INSERT(%StandardGlobalSetup)
  26. #ENDAT
  27. #INSERT(%StandardWindowCode)
  28. #!-----------------------------------------
  29. #DEFAULT
  30. NAME DefaultFrame
  31. [COMMON]
  32. DESCRIPTION 'Default MDI Frame'
  33. FROM Clarion Frame
  34. [PROMPTS]
  35. %INISaveWindow LONG  (1)
  36. %ButtonAction DEPEND %Control STRING TIMES 1
  37. WHEN  ('?Exit') ('No Special Action')
  38.  
  39. %MenuAction DEPEND %Control STRING TIMES 1
  40. WHEN  ('?Exit') ('No Special Action')
  41.  
  42. [ADDITION]
  43. NAME Clarion DateTimeDisplay
  44. [INSTANCE]
  45. INSTANCE 1
  46. PROCPROP
  47. [PROMPTS]
  48. %DisplayDate LONG  (0)
  49. %DatePicture STRING  ('October 31, 1959')
  50. %OtherDatePicture @S20  ('')
  51. %ShowDayOfWeek LONG  (1)
  52. %DateDisplayLocation STRING  ('Status Bar')
  53. %DateStatusSection @n1  (3)
  54. %DateControl STRING  ('')
  55. %DisplayTime LONG  (0)
  56. %TimePicture STRING  ('5:30PM')
  57. %OtherTimePicture @S20  ('')
  58. %TimeDisplayLocation STRING  ('Status Bar')
  59. %TimeStatusSection @n1  (4)
  60. %TimeControl STRING  ('')
  61. [WINDOW]
  62. AppFrame APPLICATION('Application'),AT(,,310,190),STATUS(-1,80,120,45),SYSTEM,MAX,RESIZE
  63.        MENUBAR
  64.          MENU('&File'),USE(?FileMenu)
  65.            ITEM('P&rint Setup...'),USE(?PrintSetup),MSG('Setup Printer'),STD(STD:PrintSetup)
  66.            ITEM,SEPARATOR
  67.            ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
  68.          END
  69.          MENU('&Edit'),USE(?EditMenu)
  70.            ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
  71.            ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
  72.            ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
  73.          END
  74.          MENU('&Window'),MSG('Create and Arrange windows')
  75.            ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
  76.            ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
  77.            ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
  78.          END
  79.          MENU('&Help'),MSG('Windows Help')
  80.            ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
  81.            ITEM('&Search for Help On...'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
  82.            ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)
  83.          END
  84.        END
  85.      END
  86.  
  87. #ENDDEFAULT
  88.